﻿Public Class Logger
    Dim Fs As IO.FileStream
    Dim Writer As IO.StreamWriter
    Public Sub New()
        Fs = New IO.FileStream(IO.Path.Combine(Application.StartupPath, "IDE.Log"), IO.FileMode.Create)
        Writer = New IO.StreamWriter(Fs)
        Writer.WriteLine(My.Computer.Clock.LocalTime.ToLongTimeString & " : IDE Start")
        Writer.WriteLine("")
    End Sub
    Public Sub Write(ByVal Txt As String)
        Writer.WriteLine(My.Computer.Clock.LocalTime.ToLongTimeString & " : " & Txt)
    End Sub
    Public Sub Close()
        Writer.WriteLine(My.Computer.Clock.LocalTime.ToLongTimeString & " : IDE Shutdown")
        Writer.Close()
    End Sub
End Class
